home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / mrcry204.zip / GCD.EKA < prev    next >
Text File  |  1991-03-04  |  283b  |  14 lines
  1. ; Demo of external functions.
  2.  
  3. ; GCD computes the greatest common divisor of two numbers.
  4. EXTERNAL GCD
  5. ; ASINH is the inverse hyperbolic sine.
  6. EXTERNAL ASINH
  7.  
  8. ; correct answer is 7
  9. a = GCD(156562431911123, 442677773754356)
  10.  
  11. ; should get c = PI
  12. b = SINH(PI)
  13. c = ASINH(b)
  14.